UC知道求[3-1000]之间最大的五个素数之和
来源：百度知道 编辑：UC知道 时间：2024/05/17 03:06:27
vb编程
呵呵 我会做了，感谢大家的帮忙
Private Sub Form_Click()
Sum = 0
For x = 999 To 3 Step -2
k = Int(x / 2)
For i = 2 To k
If x Mod i = 0 Then
Exit For
End If
Next i
If i > k Then
n = n + 1
Sum = Sum + x
End If
If n = 5 Then
Exit For
End If
Next x
Print Sum
End Sub
呵呵 我会做了，感谢大家的帮忙
Private Sub Form_Click()
Sum = 0
For x = 999 To 3 Step -2
k = Int(x / 2)
For i = 2 To k
If x Mod i = 0 Then
Exit For
End If
Next i
If i > k Then
n = n + 1
Sum = Sum + x
End If
If n = 5 Then
Exit For
End If
Next x
Print Sum
End Sub
首先做一个素数的程序
应该会吧
做一一维数组
n/2一直到/sqr(n)
求出所有素数
然后排序
随便你从小到大还是从大到小
取最前面5个（或最后）
相加
4919
源代码:
Dim j, i, k, l, m As Double
Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
l = Text1.Text
m = 0
If l = "" Then
MsgBox "请输入数值", , "提醒"
Else
For i = 2 To l
k = 0
For j = 2 To Sqr(i)
If (i Mod j) = 0 Then
k = k + 1
End If
Next j
If k = 0 Then
RichTextBox1.Text = (RichTextBox1.Text) & Str(i) & "是素数"
m = m + 1
End If
Next i
Text1.Text = "共有" & m & "个素数"
End If
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
Text1.Text = ""
RichTextBox1.Text = ""
End Sub